﻿Imports Control_Vuelos_BL

Public Class frmMaestroAnalisis
    Inherits frmBaseMantenimiento

    ReadOnly vMaestro As New MaestrosBL()

    Private Sub frmMaestroAnalisis_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        BarBtnAgregar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnCancelar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnEliminar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnGrabar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnImprimir.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnModificar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never

        AddHandler BarBtnRefresh.ItemClick, AddressOf prl_GetAnalisis
        prl_GetAnalisis()
    End Sub

    Public Sub prl_GetAnalisis()
        GridControl1.DataSource = vMaestro.pr_GetAnalisis(" AND (len(codanl)=6)")
    End Sub
End Class